home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MIDI REC.cpt / MIDI Recorder / card_3531.txt < prev    next >
Text File  |  1988-01-04  |  4KB  |  147 lines
  1. -- card: 3531 from stack: in
  2. -- bmap block id: 3122
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2007
  11. -- rect: left=19 top=43 right=321 bottom=498
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=432 top=19 right=48 bottom=470
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 1011 / 1011
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Home
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual effect iris close
  37.   go home
  38. end mouseUp
  39.  
  40.  
  41.  
  42.  
  43. -- part 3 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=389 top=19 right=47 bottom=425
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 9120 / 9120
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Prev
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   visual effect dissolve
  58.   go to prev card
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part contents for card part 1
  64. ----- text -----
  65.  
  66.      ‚Ä¢ MIDI  Recorder  v1.0      
  67.      ‚Ä¢ MIDI XCMD resource  v1.0
  68.  
  69.     ¬© 1/1/1988  Kunihito.Koike   Yokohama,Japan 
  70.  
  71. ‚Ä¢ This is the freeware.  Please UpLoad to your favorite BBS . . .
  72.  
  73. This is the MIDI XCMD example stack which contains the MIDI command in an XCMD resource.  This XCMD can comunicate with various MIDI equipments. If you want to create your MIDI stack, you must copy this XCMD resource to your stack with Resource Editer. 
  74.  
  75. This is very simple stack, but you can study quickly about MIDI XCMD.
  76. You can create various MIDI stacks  with this XCMD command . . .
  77. Controler . . Sound Librarian . . Sequencer . . . etc  . 
  78. If you have some question or suggestion, please send me E-Mail .
  79.  
  80. CompusServe   76661,526
  81. NIFTY-Serve    SGB00526
  82. Kanto Central  #208
  83. Mac Event  / Janet / Music Panic Bord  -> Kunihito Koike
  84.  
  85. This is used the MIDIShell created by Mr K.Austin.(MacTutor VOL3 NO12)  So you had better refer to this issue. Thank you for his nice working.
  86.  
  87.                              Let's enjoy  HyperCard  with MIDI !        K.Koike 
  88.  
  89. ‚Ä¢ About MIDI Recorder . . 
  90.  
  91. RECORD      button -> recording  datas from MIDI into track A or B. 
  92. PLAY          button -> playing datas from track A or B .
  93. PROGRAM   button -> change program number for MIDI equipments .
  94. Track A&B  button -> select track A or B .
  95.  
  96. If you want to stop recording or playing before time limit, please click mouse button.
  97.  
  98. ‚Ä¢ About MIDI command . . .
  99.  
  100. You can receive the MIDI datas from equipments .
  101. You can get MIDI datas asking for "the result" after execution command.
  102.  
  103. MIDI in,time            <- time( msec ) is ASCII strings.
  104.  
  105. You can send the MIDI datas to MIDI equipments.
  106.  
  107. MIDI out,data          <- data is MIDI byte strings. ( Show below !! )
  108.  
  109. First option is select port function. Second option is MIDI thru function.
  110.  
  111. MIDI out,data,port
  112. MIDI in,time,port,thru
  113.  
  114.  port  <- 0 is to modem port .   
  115.               1 is to printer port.
  116.  
  117.  thru  <- 0 is no thru function.    
  118.               1 is MIDI thru on the same port.    
  119.               2 is MIDI thru on the opposite port.
  120.  
  121. Command returns the Error Beep sounds.
  122.  
  123. Beep 1  is Syntax Error .               the result <- "Syntax"
  124. Beep 2  is Few memory Error.       the result <- "Memory"
  125.  
  126. ‚Ä¢ About MIDI datas . . .
  127.  
  128. MDID byte stream is converted zero-terminated ASCII strings into HyperCard . Each MIDI bytes are separated by SPACE ASCII character.
  129.  
  130.    144  60  64            <-  KEY ON C3 with  VELOCITY 60 
  131.   
  132. MIDI one byte can accompany Time Stamping data.  
  133. MIDI one byte with Time Stamping is Time( msec ) *256 +MIDI byte .
  134.  
  135.    144  60  64  256144  60  0   <- KEY OFF C3 after 1 sec 
  136.  
  137.  ‚Ä¢ Examples. . .
  138.  
  139.    MIDI in,"10000"
  140.    put the result into card field "Data A"
  141.  
  142.    MIDI out,"144  60  64  256144  60  0",1        ( to printer port )
  143.  
  144.    put card field "Data B" into data
  145.    MIDI out,data
  146.  
  147.